"
I represent the rename of a category in a package.
"
Class {
	#name : 'EpPackageTagRename',
	#superclass : 'EpPackageTagChange',
	#instVars : [
		'oldTagName'
	],
	#category : 'Epicea-Model',
	#package : 'Epicea',
	#tag : 'Model'
}

{ #category : 'instance creation' }
EpPackageTagRename class >> oldName: oldName newName: newName packageName: packageName [

	^ (self tagName: newName packageName: packageName)
		  oldTagName: oldName;
		  yourself
]

{ #category : 'visitor' }
EpPackageTagRename >> accept: aVisitor [
	^ aVisitor visitPackageTagRename: self
]

{ #category : 'accessing' }
EpPackageTagRename >> fileOutEntryOn: aWriteStream [
	"Write a code chunk to rename a package tag"

	aWriteStream
		nextPutAll: 'self packageOrganizer renameTag: ';
		nextPutAll: self oldTagName;
		nextPutAll: ' to: ';
		nextPutAll: self newTagName;
		nextPutAll: ' inPackage: '.
	(ChunkWriteStream on: aWriteStream)
		nextPut: self packageName;
		cr
]

{ #category : 'accessing' }
EpPackageTagRename >> newTagName [

	^ self tagName
]

{ #category : 'accessing' }
EpPackageTagRename >> oldTagName [

	^ oldTagName
]

{ #category : 'accessing' }
EpPackageTagRename >> oldTagName: anObject [

	oldTagName := anObject
]
